perm filename SPIRAL.LST[1,DBL] blob
sn#020923 filedate 1973-01-22 generic text, type T, neo UTF8
MIXAL - MIX Assembly Language
22-JAN-1973 23:12
+ 0000001500 BUF1 EQU 1500
+ 0000000500 BUF2 EQU 500
+ 0000002500 BUF3 EQU 2500
+ 0000000018 PRINTER EQU 18
0000 + 0495 00 02 50 START ENT2 495
0001 + 0001 00 02 51 ENT3 1
0002 + 0006 00 02 54 ENT6 6
0003 + 0001 00 02 52 ENT4 1
0004 + 1501 00 05 30 ST6 BUF1+1
0005 + 0001 00 00 52 LOOP1 INC4 1
0006 ↓ - 0001 00 05 60 CMP4 =999=
0007 ↓ - 0001 00 04 39 JL DONE
0008 + 0046 00 02 48 ENTA 46
0009 + 1500 04 05 02 SUB BUF1,4
0010 + 0204 03 00 50 INC2 204,3
0011 + 2500 02 05 24 STA BUF3,2
0012 + 0200 03 05 58 CMP2 200,3
0013 ↓ - 0001 00 08 39 JNE BEND
0014 + 0200 03 05 08 LDA 200,3
0015 + 0204 03 05 01 ADD 204,3
0016 + 0200 03 05 24 STA 200,3
0017 + 0003 00 01 51 DEC3 3
0018 + 0020 00 02 43 J3P *+2
0019 + 0004 00 00 51 INC3 4
0020 + 2500 02 05 08 LDA BUF3,2
0021 ← ↓ - 0001 00 05 56 BEND CMPA =46=
0022 + 0005 00 08 39 JNE LOOP1
0023 + 0000 04 02 48 ENTA 0,4
0024 + 0000 00 01 05 CHAR
0025 + 0500 01 05 31 STX BUF2,1
0026 + 0001 00 00 49 INC1 1
0027 + 0000 04 02 53 ENT5 0,4
0028 + 0000 04 00 53 LOOP2 INC5 0,4
0029 ↓ + 0006 00 05 61 CMP5 =999=
0030 + 0005 00 04 39 JL LOOP1
0031 + 1500 05 05 30 ST6 BUF1,5
0032 + 0028 00 00 39 JMP LOOP2
0033 ← + 0000 00 02 54 DONE ENT6 0
0034 + 0197 00 05 25 ST1 197
0035 + 0023 00 02 49 LOOP3A ENT1 23
0036 + 0029 00 00 54 INC6 29
0037 + 0500 06 05 08 LOOP3 LDA BUF2,6
0038 + 1500 01 21 24 STA BUF1,1(2:5)
0039 + 0499 06 05 08 LDA BUF2-1,6
0040 + 1500 01 09 24 STA BUF1,1(1:1)
0041 + 0001 00 01 06 SRA 1
0042 + 1499 01 29 24 STA BUF1-1,1(3:5)
0043 + 0498 06 05 08 LDA BUF2-2,6
0044 + 1499 01 10 24 STA BUF1-1,1(1:2)
0045 + 0002 00 01 06 SRA 2
0046 + 1498 01 37 24 STA BUF1-2,1(4:5)
0047 + 0497 06 05 08 LDA BUF2-3,6
0048 + 1498 01 11 24 STA BUF1-2,1(1:3)
0049 + 0003 00 01 06 SRA 3
0050 + 1497 01 45 24 STA BUF1-3,1(5:5)
0051 + 0496 06 05 08 LDA BUF2-4,6
0052 + 1497 01 12 24 STA BUF1-3,1(1:4)
0053 + 0005 00 01 54 DEC6 5
0054 + 0004 00 01 49 DEC1 4
0055 + 0037 00 02 41 J1P LOOP3
0056 + 0056 00 18 34 JBUS *(PRINTER)
0057 + 1500 00 18 37 OUT BUF1(PRINTER)
0058 + 0197 00 05 62 CMP6 197
0059 + 0035 00 06 39 JG LOOP3A
0060 + 0202 00 05 08 LDA 202
0061 + 0032 00 00 48 INCA 32
0062 + 0202 00 05 24 STA 202
0063 + 0018 00 02 53 ENT5 18
0064 + 0032 00 02 54 ENT6 32
0065 + 0065 00 18 34 JBUS *(PRINTER)
0066 + 0006 00 02 49 L4A ENT1 6
0067 + 0001 00 01 54 L4 DEC6 1
0068 + 2500 06 05 08 LDA BUF3,6
0069 + 0070 00 36 29 ST5 *+1(4:4)
0070 + 1500 01 05 24 STA BUF1,1
0071 + 0009 00 01 53 DEC5 9
0072 + 0067 00 02 45 J5P L4
0073 + 0001 00 01 49 DEC1 1
0074 + 0045 00 02 53 ENT5 45
0075 + 0064 00 00 54 INC6 64
0076 + 0067 00 03 41 J1NN L4
0077 + 1500 00 18 37 OUT BUF1(PRINTER)
0078 + 0078 00 18 34 JBUS *(PRINTER)
0079 + 0202 00 05 62 CMP6 202
0080 + 0066 00 04 39 JL L4A
0081 + 0000 00 02 05 HLT
0082 + 0000000201 ORIG 201
0201 + 0000000496 CON 496
0202 + 0000000527 CON 527
0203 + 0000000494 CON 494
0204 + 0000000463 CON 463
0205 + 0000000001 CON 1
0206 + 0000000032 CON 32
0207 - 0000000001 CON -1
0208 - 0000000032 CON -32
0209 + 000000 0000 END START
SYMBOL TABLE
BUF1 +1500
BUF2 +500
BUF3 +2500
PRINTER +18
START +0
LOOP1 +5
0209 ← + 0000000999 =LIT= +209 (0029)
DONE +33 (0007)
BEND +21 (0013)
0210 ← + 0000000046 =LIT= +210 (0021)
LOOP2 +28
LOOP3A +35
LOOP3 +37
L4A +66
L4 +67